Fchartマクロ (7/11)

マクロといううには、あまりにもレベルが低いですが
徐々に銘柄検索をマクロでできるように、レベルアップ
していければと思っています

ここには、普段使っていないマクロを
よく使っているマクロは、スクリーニングの結果内に記載

【チェック済み】
////////////////////////////////////////////////////////////////////
/　出来高４日間漸増
/ 04/7/5
////////////////////////////////////////////////////////////////////
if not Kabusiki then exit;
SisuName:=出来高４日間漸増;
begin
/いかでもいいが、
{
if (Dekidaka(Dno) >= Dekidaka(Dno-1))
and (Dekidaka(Dno-1) > Dekidaka(Dno-2))
and (Dekidaka(Dno-2) > Dekidaka(Dno-3))
}
/５日のうち前日より出来高が増えたのが4日以上
if SumDekiUp(5)>4 then Buy;
end;

【未チェック】
/////////////////////////////////////////////////////////////////////
/　３手大陰線 7/10ヒット０
/ 04/7/10
/ 過去10日毎の一日の値幅　の平均値のN倍以上の陰線が３日つづいて＆下降している
/////////////////////////////////////////////////////////////////////
if not Kabusiki then exit;
SisuName:=３手大陰線;
var VarA,i,n,VarB,VarC;
begin
n := 3;　　/３倍以上を大陰線とした場合
VarA:=0;
for i := 0 to 9 do begin
VarB := Abs(Ref('Close',Dno-i) - Ref('Open',Dno-i));
VarA := VarA + VarB;
end;
varC := VarA/10;

if ((Ref('Open',Dno) - Ref('Close',Dno))> n*varC) and ((Ref('Open',Dno-1) - Ref('Close',Dno-1)) > n*varC) and ((Ref('Open',Dno-2) - Ref('Close',Dno-2)) > n*varC) then Buy;
end;